home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / Laplace.lha / Laplace / Data / Projects.lha / physic2 < prev    next >
Encoding:
Text File  |  1996-07-24  |  465 b   |  39 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #USEERROR=FALSE
  4. #SIMPLIFY=TRUE
  5. #ERRBND=9
  6. #EXPDSP=5
  7. #PREC=8
  8. #F1=lambda
  9. #F2=g(x)=
  10. #F3=h(x)=f(x)/g(x)
  11. #F4=matrix(
  12. #F5=vector(
  13. #F6=diff(f)
  14. #F7=diff(g)
  15. #F8=diff(h)
  16. #F9=taylor(f,0)
  17. #F10=taylor(f,1)
  18. #F11=%(run type s:startup-sequence)
  19. #F12=
  20. #F13=
  21. #F14=
  22. #F15=
  23. #F16=
  24. #F17=
  25. #F18=
  26. #F19=
  27. #F20=
  28. include(physic.lh)
  29. k=my_0*c_0^2/(4*pi)
  30. E(r)=3/5*k*e_0^2/r
  31. const(r)
  32. a=eq(E(r) , m_e * c_0^2)
  33. a=a*(r/m_e/c_0^2)
  34. r=eqleft(a)
  35. eval(r)
  36. r/(my_0*e_0^2/(4*pi*m_e))
  37.  
  38.  
  39.